Metallica: Do Show de Garagem para o Mundo
Trabalho de Conclusão do curso ‘R para Ciência de Dados 2’
Introdução
A banda Metallica surgiu no comecinho dos anos 80, inspirando-se na Nova Onda do Heavy Metal Britânico, uma corrente surgida anos antes e que compreende bandas como Iron Maiden, Judas Priest, Venom, Def Leppard, Motorhead e tantas outros nomes que, se você não estiver habituade, vão parecer mais nomes de Pokémon do que qualquer outra coisa. Mas o ponto não é esse!
Desde que surgiu, a banda revolucionou a música e deu base para todo um gênero, fazendo diversas turnês pelo mundo e sendo o único conjunto/artista a ter tocado em todos os 7 continentes do mundo..
Com tantos anos de estrada, é da curiosidade de alguém (como nós, estatísticos e cientistas de dados talvez) compreender em números como foram essas turnês, em que locais seus shows ocorreram e outras características de interesse. Sem mais delongas, vamos ao trabalho!
O Banco de Dados
O banco de dados utilizado para este trabalho encontra-se disponível no Kaggle, e chama-se Metallica Tour History. A base, após a limpeza, consiste em 23 atributos de 2070 shows feitos pela banda ao longo do tempo. As variáveis presentes são:
- Date: Data do show no formato “aaaa-mm-dd”;
- Year: Ano de ocorrência do show;
- Festival: Festival onde o show ocorreu, se houver;
- Tour: Turnê onde o show ocorreu, se houver;
- Country: País onde o show ocorreu;
- Set: Setlist principal do show, concatenado uma string dividida por vírgulas;
- Encores: Músicas extras do show, ou seja, músicas que não estavam na setlist mas foram tocadas ao final do show;
- Set_Length: Número de músicas da setlist;
- Disco_Count: Número de músicas de determinado disco tocadas no show.
Falando em discos, é interessante apresentarmos quais discos a banda lançou ao longo dos anos para aqueles que nunca ouviram falar dela. Eles estão apresentados à seguir:
# Definindo pasta de trabalho para a principal, e não a docs/
setwd("..")
# Lendo banco de dados
metallica <- readRDS("data/metallica.rds")
# Criando tabela com discos, capa e ano de lançamento
dplyr::tibble(
Disco=c("Kill'Em All", "Ride the Lightning", "Master of Puppets",
"...And Justice For All", "Black Album", "Load", "ReLoad",
"Garage Inc.", "St. Anger", "Death Magnetic",
"Hardwired To Self Destruct"),
Capa=c("img/1-kill.jpg","img/2-ride.jpg","img/3-master.jpg",
"img/4-justice.jpg","img/5-black.jpg","img/6-load.jpg",
"img/7-reload.jpg", "img/8-garage.jpg","img/9-anger.jpg",
"img/10-death.jpg","img/11-hardwired.jpg"),
Ano=c(1983, 1984, 1986, 1988, 1991, 1996, 1997, 1998, 2003, 2008, 2016)
) |>
gt::gt() |>
gt::tab_header(
title = gt::md("**Discografia do Metallica**"),
subtitle = gt::md("A banda começou seus anos mais revoltados com 'Kill`Em All', chegando até o mais recente 'Hardwired To Self Destruct'")
) |>
gt::text_transform(
locations = gt::cells_body(Capa),
fn = function(x){
purrr::map_chr(x, ~ gt::local_image(
filename = .x,
height = 75
))
}
)| Discografia do Metallica | ||
|---|---|---|
| A banda começou seus anos mais revoltados com 'Kill`Em All', chegando até o mais recente 'Hardwired To Self Destruct' | ||
| Disco | Capa | Ano |
| Kill'Em All | 1983 | |
| Ride the Lightning | 1984 | |
| Master of Puppets | 1986 | |
| ...And Justice For All | 1988 | |
| Black Album | 1991 | |
| Load | 1996 | |
| ReLoad | 1997 | |
| Garage Inc. | 1998 | |
| St. Anger | 2003 | |
| Death Magnetic | 2008 | |
| Hardwired To Self Destruct | 2016 | |
Sem mais delongas, vamos ao trabalho!
Perguntas de interesse
Antes de partirmos para as análises propriamente ditas, existem algumas perguntas que podem nos auxiliar a descrever o comportamento da banda ao longo dos anos no que diz respeito às suas turnês, shows e afins:
- Quais foram as turnês com mais shows? Quando ocorreram? Qual o tamanho médio dos shows da turnê? Quais turnês duraram mais tempo?
- Em quais países a banda fez mais shows?
- Qual disco foi o mais tocado pela banda?
- Quais foram as músicas mais tocadas pela banda?
As seções desta análise estão divididas de maneira a cobrir essas questões de uma maneira mais conveniente:
Análise dos Dados
Turnês
No banco de dados em estudo, temos turnês registradas até o ano de 2018; ao todo, são 30 turnês (sem contarmos os shows que não fizeram parte de nenhum itinerário desse tipo):
# Tabela de todas as turnês
metallica |>
dplyr::filter(Tour!="None") |>
dplyr::group_by(Tour) |>
dplyr::summarise(`Data de Início:`=min(Date),
`Data de Término`=max(Date)) |>
dplyr::arrange(`Data de Início:`) |>
gt::gt() |>
gt::tab_header(
title=gt::md("**Lista de Turnês da banda Metallica**"),
subtitle=gt::md("A primeira ocorreu no ano de 1983 para a divulgação de seu disco de estréia")
) |>
gt::tab_footnote(
footnote = gt::md("Dados registrados até o ano de 2018; a turnê 'WorldWired' ainda está ocorrendo"),
locations = gt::cells_column_labels(
columns= Tour
)
) |>
gt::tab_options(
container.height = 500
)| Lista de Turnês da banda Metallica | ||
|---|---|---|
| A primeira ocorreu no ano de 1983 para a divulgação de seu disco de estréia | ||
| Tour1 | Data de Início: | Data de Término |
| Kill 'Em All for One | 1983-07-27 | 1983-09-03 |
| Seven Dates of Hell | 1984-02-03 | 1984-02-12 |
| Hell On Earth Tour | 1984-03-21 | 1984-04-03 |
| Ride the Lightning | 1984-11-16 | 1985-03-19 |
| Damage, Inc. | 1986-03-27 | 1987-02-13 |
| Van Halen's Monsters of Rock | 1988-05-27 | 1988-07-30 |
| Damaged Justice | 1988-09-11 | 1989-10-07 |
| Monsters of Rock | 1991-08-10 | 1991-09-28 |
| Wherever We May Roam | 1991-10-29 | 1993-05-08 |
| Guns N' Roses/Metallica Stadium Tour | 1992-07-17 | 1992-10-06 |
| Nowhere Else to Roam | 1993-05-19 | 1993-07-04 |
| Summer Shit | 1994-05-30 | 1994-08-21 |
| Escape from the Studio '95 | 1995-08-23 | 1995-09-03 |
| Lollapalooza | 1996-06-27 | 1996-08-04 |
| Poor Touring Me | 1996-09-06 | 1997-05-28 |
| Blitzkrieg '97 | 1997-08-22 | 1997-11-18 |
| Poor ReTouring Me | 1998-04-02 | 1998-09-13 |
| Garage Barrage | 1998-11-17 | 1998-11-24 |
| The Garage Remains the Same | 1999-04-30 | 1999-07-24 |
| M2K | 1999-12-28 | 2000-01-10 |
| Summer Sanitarium | 2000-06-30 | 2000-07-22 |
| Summer Sanitarium 2003 | 2003-07-04 | 2003-08-10 |
| Madly In Anger With The World | 2004-02-27 | 2004-11-28 |
| Escape from the Studio '06 | 2006-06-03 | 2006-08-15 |
| Sick of the Studio '07 | 2007-06-28 | 2007-07-17 |
| European Vacation | 2008-05-28 | 2008-08-24 |
| World Magnetic | 2008-10-21 | 2010-11-21 |
| The Full Arsenal | 2012-07-28 | 2012-08-27 |
| Metallica By Request | 2014-03-16 | 2014-08-09 |
| WorldWired | 2016-08-20 | 2018-12-09 |
|
1
Dados registrados até o ano de 2018; a turnê 'WorldWired' ainda está ocorrendo
|
||
Tendo em mente as 30 turnês apresentadas, é interessante pensarmos em quais delas possuem/possuíram maior duração. Ordenadas da maior para a menor turnê, no quesito duração em dias, temos que as 5 mais extensas foram:
# Tabela das top 5 turnes por duração em dias
metallica |>
dplyr::filter(Tour!="None") |>
dplyr::group_by(Tour) |>
dplyr::summarise(`Duração em dias`=max(Date)-min(Date)) |>
dplyr::arrange(desc(`Duração em dias`)) |>
dplyr::top_n(5) |>
gt::gt() |>
gt::tab_header(
title=gt::md("**Top 5 turnês mais duradouras da banda Metallica**"),
subtitle=gt::md("A turnê 'WorldWired' tem tudo para bater ainda mais recordes, dito que ainda está ocorrendo no presente ano de 2021")
) | Top 5 turnês mais duradouras da banda Metallica | |
|---|---|
| A turnê 'WorldWired' tem tudo para bater ainda mais recordes, dito que ainda está ocorrendo no presente ano de 2021 | |
| Tour | Duração em dias |
| WorldWired | 841 |
| World Magnetic | 761 |
| Wherever We May Roam | 557 |
| Damaged Justice | 391 |
| Damage, Inc. | 323 |
Outro destaque interessante vai para a turnê “Wherever We May Roam”, ocorrida no início da década de 90 e tida como um dos pontos altos da banda, apenas superada recentemente pelas turnês “World Magnetic” e “WorldWired”.
Mas beleza, de nada adianta analisarmos única e exclusivamente a duração de uma turnê pela sua quantidade de dias, mas sim pela quantidade de shows e a quantidade média de dias entre cada show. É o que faremos agora:
# Tabela das top 5 turnês por quantidade de shows
metallica |>
dplyr::filter(Tour!="None") |>
dplyr::group_by(Tour) |>
dplyr::summarise(`Quantidade de Shows`= dplyr::n()) |>
dplyr::arrange(desc(`Quantidade de Shows`)) |>
dplyr::top_n(5) |>
gt::gt() |>
gt::tab_header(
title=gt::md("**Top 5 turnês com mais shows da banda Metallica**"),
subtitle=gt::md("A lendária 'Wherever We May Roam' foi a maior de todas, com 229 shows")
) | Top 5 turnês com mais shows da banda Metallica | |
|---|---|
| A lendária 'Wherever We May Roam' foi a maior de todas, com 229 shows | |
| Tour | Quantidade de Shows |
| Wherever We May Roam | 229 |
| Damaged Justice | 219 |
| World Magnetic | 179 |
| Damage, Inc. | 140 |
| Poor Touring Me | 135 |
Santa correria! Será que, com o passar do tempo, o ritmo continuou o mesmo ou os membros da banda se cansaram e preferiram ficar mais numa boa? A razão dias/show ao longo dos anos de carreira da banda é um bom indicador dessa questão. Iremos analisá-la de acordo com cada turnê e com cada ano:
# Tabela das 5 turnês com menor razão dias/show por turnê
mais_corrida <- metallica |>
dplyr::filter(Tour!="None") |>
dplyr::group_by(Tour) |>
dplyr::summarise(`Razão Dias/Show`= round(
(max(Date)-min(Date))/dplyr::n(),digits=2
)) |>
dplyr::arrange(`Razão Dias/Show`) |>
dplyr::top_n(-5) |>
gt::gt() |>
gt::as_raw_html()
# Tabela das 5 turnês com maior razão dias/show por turnê
menos_corrida <- metallica |>
dplyr::filter(Tour!="None") |>
dplyr::group_by(Tour) |>
dplyr::summarise(`Razão Dias/Show`= round(
(max(Date)-min(Date))/dplyr::n(),digits=2
)) |>
dplyr::arrange(desc(`Razão Dias/Show`)) |>
dplyr::top_n(5) |>
gt::gt() |>
gt::as_raw_html()
data.frame(menos_corrida, mais_corrida) |>
gt::gt() |>
gt::fmt_markdown(columns = dplyr::everything()) |>
gt::cols_label(menos_corrida = "Top 5 Turnês menos 'corridas'",
mais_corrida = "Top 5 Turnês mais 'corridas'") |>
gt::tab_header(
title = gt::md("**Turnês mais e menos 'corridas' da banda Metallica**"),
subtitle = gt::md("O ritmo mais pesado chegou a um show para cada 1,18 dias; o mais leve foi de um show para cada 9,78 dias")
)| Turnês mais e menos 'corridas' da banda Metallica | |
|---|---|
| O ritmo mais pesado chegou a um show para cada 1,18 dias; o mais leve foi de um show para cada 9,78 dias | |
| Top 5 Turnês menos 'corridas' | Top 5 Turnês mais 'corridas' |
No geral, as turnês Hell On Earth Tour e Kill’Em All for One foram as mais corridas para a banda no geral, com uma média de um show a cada 1.2 dias! Por coincidência, essas duas turnês aconteceram no início da década de 80, quando a banda estava na sua época mais jovem e, provavelmente, mais disposta.
Por outro lado, quase todas as turnês mais tranquilas da banda fazem parte de épocas mais recentes, como é o caso da WorldWired e da Metallica By Request. Um destaque vai para a turnê Blitzkrieg ’97, com aproximadamente um show a cada 10 dias.
E quando à razão dias/show para cada ano?
# Grafico da razao dias/show através dos anos
razao_por_anos <- metallica |>
dplyr::mutate(Ano=Year) |>
dplyr::group_by(Ano) |>
dplyr::summarise(razao= round(
(max(Date)-min(Date))/dplyr::n(),digits=2
)) |>
ggplot2::ggplot(ggplot2::aes(x=Ano,y=razao))+
ggplot2::geom_line()+
ggplot2::theme_minimal()+
ggplot2::scale_x_continuous(breaks = seq(1980,2018,5))+
ggplot2::labs(x="Ano",y="Razão",
title="Razão Dias/Show através dos anos")
razao_por_anos |> plotly::ggplotly()O ano de 1995 foi o mais tranquilo para a banda no que diz respeito à quantidade de shows: em média, rolou apenas um show a cada 20 dias! O mais atarefado, no entanto, foi o ano de 2005, quando a banda possuiu a média próxima de um show por dia.
Por fim quais foram as turnês com a maior quantidade média de músicas por set? E qual ano possui essa mesma quantidade média?
# Tabela das 5 turnês com menor media musicas/show
menor_sets <- metallica |>
dplyr::filter(Tour!="None") |>
dplyr::group_by(Tour) |>
dplyr::summarise(`Média Músicas/Show`= round(
mean(Set_Length,na.rm=TRUE),digits=2
)) |>
dplyr::arrange(`Média Músicas/Show`) |>
dplyr::top_n(-5) |>
gt::gt() |>
gt::as_raw_html()
maior_sets <- metallica |>
dplyr::filter(Tour!="None") |>
dplyr::group_by(Tour) |>
dplyr::summarise(`Média Músicas/Show`= round(
mean(Set_Length,na.rm=TRUE),digits=2
)) |>
dplyr::arrange(desc(`Média Músicas/Show`)) |>
dplyr::top_n(5) |>
gt::gt() |>
gt::as_raw_html()
data.frame(menor_sets, maior_sets) |>
gt::gt() |>
gt::fmt_markdown(columns = dplyr::everything()) |>
gt::cols_label(menor_sets = "Top 5 Turnês com menores sets",
maior_sets= "Top 5 Turnês com maiores sets") |>
gt::tab_header(
title = gt::md("**Turnês com maior e menor quantidade média de músicas por set**"),
subtitle = gt::md("A turnê com maiores sets possuiu média de 22.46 músicas; a menor, média de 10.17.")
)| Turnês com maior e menor quantidade média de músicas por set | |
|---|---|
| A turnê com maiores sets possuiu média de 22.46 músicas; a menor, média de 10.17. | |
| Top 5 Turnês com menores sets | Top 5 Turnês com maiores sets |
A turnê com menor média de músicas em seus sets foi a Seven Dates of Hell (10.17 músicas por show), seguida pela Kill’Em All for One (10.5 músicas por show) e outras. Estas duas merecem destaque por serem algumas das primeiras turnês da banda, quando sequer haviam músicas para serem tocadas.
Por outro lado, a com maior média de músicas por set foi a turnê Nowhere Else to Roam (22.46 músicas por show), que ocorreu na época em que a banda teve seu maior boom em popularidade (algo próximo do início da década de 90, para sermos mais exatos), quando já possuíam um certo tempo de estrada e mais discos na bagagem.
# Grafico da razao dias/show através dos anos
musicas_por_anos <- metallica |>
dplyr::mutate(Ano=Year) |>
dplyr::group_by(Ano) |>
dplyr::summarise(`Média Músicas/Show`= round(
mean(Set_Length,na.rm=TRUE),digits=2
)) |>
ggplot2::ggplot(ggplot2::aes(x=Ano,y=`Média Músicas/Show`))+
ggplot2::geom_line()+
ggplot2::theme_minimal()+
ggplot2::scale_x_continuous(breaks = seq(1980,2018,5))+
ggplot2::labs(x="Ano",y="Média Músicas/Show",
title="Média de músicas por show através dos anos")
musicas_por_anos |> plotly::ggplotly()Aqui, observamos resultados parecidos: o ano de 1982 (primeiro ano de vida da banda) possuiu a menor média de músicas por show (8.85), isso provavelmente pelo fato da banda sequer ter lançado seu primeiro disco; o ano de 1993, coincidindo com a turnê Nowhere Else to Roam, possuiu a maior média (21.59 músicas por show). A partir do ano de 2006, a banda pareceu estabilizar essas métricas, sem shows muito pequenos ou muito grandes na média.